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1 . 0 INTRODUCTION 


Si 


Naval  Electronics  Design  Cost  Model  (NEDCOM)  Is  an  inter- 
active computer  cost  model  which  estimates  the  life  cycle  cost  of 
electronic  systems  to  be  deployed  in  a Navy  Shipboard  environment. 

It  has  been  designed  to  aid  the  system  and  component  designer  in 
conducting  design/cost  trade-off  analysis,  as  well  as  providing  a 
link  between  the  designer  and  the  logistics  support  specialist. 

NEDCOM  is  Implemented  on  an  APPLE  II  desktop  computer  system. 
While  far  more  capable  and  sophisticated  than  the  programmable  cal- 
culators used  for  the  evel  I Slide-Rule  cost  models  (see  Volumes 
IV  and  V) , the  APPLE  II  is  much  smaller  and  less  expensive  than  the 
full-scale  computer  systems  required  for  the  Level  III  Model  (see 
Volume  I). 

Some  of  the  main  features  of  NEDCOM  are  the  following.  Life 
cycle  cost  for  individual  Lowest  Removable  Assemblies  (LRA)  are  com- 
puted for  four  levels  of  repair  postures:  repair  at  a contractor 
operated  depot,  repair  at  a military  operated  depot,  local  repair, 
and  discard  at  failure.  The  least  cost  of  the  four  postures  is 
automatically  selected  and  aggregated  to  system  level  costs  to 
produce  a total  system  life  cycle  cost  estimate.  ^A  sophisticated 
inventory  stockage  algorithm  computes  near  optimal  values  for  depot 
and  shipboard  spare  stockage  levels  for  Individual  LRA's.  This 
algorithm  can  be  set  to  either  a "fastrun"  mode  for  quicker  turn- 
around time,  or  a (potentially)  more  accurate,  but  less  speedy,  "slow- 
run"  mode  for  precise  stockage  allocation.  Complete  hardcopy  cost 
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summarles  are  provided.  FlnallVi  MEDCOM  provides  six  different 
running  options.  The  user  can  create  a new  system  and  LRA  data  set; 
add  LRA's  to  an  existing  data  set;  alter  an  existing  data  set; 
create  a new  LRA  configuration:  run  the  system  with  changes;  and 
finally,  conduct  sensitivity  analysis.  The  last  option  allows  the 
user  to  measure  the  cost  impact  of  changes  in  system  parameters. 

Section  2 of  this  volume  presents  a brief  overview  of  the  NED- 
COM  system.  It  Includes  a summary  of  the  model  cost  equations,  a 
description  of  program  logic  and  flow  charts.  A complete  program 
listing  is  provided  in  Section  3.  The  information  provided  in 
Sections  2 and  3 should  be  sufficient  to  enable  an  experienced  BASIC 
programmer  to  modify  NEDCOM,  if  desired.  NEDCOM  operating  instruc- 
tions are  provided  in  Volume  III. 


2.0  SYSTEM  DESCRIPTION 


NEDCOM  Is  configured  as  a turnkey  system  resident  on  the 
APPLE  II  computer  system.  The  APPLE  II  belongs  to  the  class  of 
machines  typically  referred  to  as  "personal  computers,”  characterized 
by  small  physical  size,  low  cost  ($500  - $2,000  for  a basic  system), 
and  ease  of  access.  This  system  was  selected  for  NEDCOM  development 
because  the  personal  computer  is  the  next  logical  step  up  - in  pro- 
cessing power  - from  the  programmable  calculators.  NEDCOM  is  fully 
portable  and  can  operate  on  hardware  costing  under  $4,500.  In  our 
opinion  the  same  forces  which  acted  to  produce  spectacular  price 
reduction  in  portable  calculators  will  produce  similar  reductions  in 
personal  computer  prices.  In  this  event,  personal  computers  will 
rapidly  become  as  ubiquitous  as  programmable  calculators. 

The  APPLE  II  configuration  used  to  support  NEDCOM  includes  the 
following; 

• Central  Processor  - The  APPLE  II  mainframe,  configured 
to  provide  48,000  bytes  (3  bits  per  byte)  of  accessible 
storage  to  the  user.  An  Hitachi  television  monitor 
provides  communication  to  the  user. 

. Software  - The  APPLE  II  is  hardwired  to  provide  BASIC, 
a standard  computational  language,  and  - through  a 
plug-in  firmware  card  - APPLESOFT,  an  extended  version 
of  BASIC  which  provides  the  capabilitv  for  scientific 
computation  and  more  natural  Instruction  formats. 

• Peripheral  Storage  - A small  tape  cassette  deck  is 
available  for  storage  and  retrieval  of  information  and 
programs.  Usually,  however,  NEDCOM  uses  a disk  drive 
for  model  storage  and  rtorage  retrieval  of  pertinent 
data.  The  disk  drive  uses  a "floppy"  (non-rigid)  disk 
about  six  inches  in  diameter:  each  interchangeable 
disk  is  capable  of  storing  116,000  bytes  of  Information. 


• Printer  - We  deemed  it  imperative  that  NEDCOM  furnish 
printed  output  to  users.  The  Integral  Data  Systems 
(IDS)  IP-125  was  sleeted  because  of  price  and  perfor- 
mance. The  IP-125  Is  capable  oi  printing  at  several 
different  print  densities  and  character  sizes,  with 
a maximum  speed  of  165  characters  per  second. 

The  APPLE  II  hardware  is  extremely  reliable.  Many  APPLE  users 
have  reported  (in  private  communication)  several  months  of  trouble- 

free  operation.  In  our  experience,  the  IP-125  is  not  as  reliable, 

although  it  is  relatively  easy  to  repair  rapidly.  NEDCOM  operates 

under  the  APPLE  II  Disk  Operating  System  (DOS).  The  NEDCOM  model  is 

programmed  in  APPLESOFT  II. 

The  model  requires  as  input  67  system  level  variables  and  seven 
input  variables  for  each  LRA.  The  system  variables  are  divided  Into 
four  groups:  Navy  and  Environmental  Cost  Factors,  which  are  indepen- 
dent of  the  system  under  consideration;  System  Operating  Environment 
Variables,  which  depend  upon  the  type  of  system,  but  which  probably 
are  not  influenced  by  specific  system  design;  System  Manpower  and 
Training  Requirements,  and  System  Design  Parameters.  The  last  two 
categories  include  variables  which  characterize  system  design. 
Complete  definitions  of  the  variables  are  provided  in  the  NEDCOM 


Users  Guide. 


2.1  Program  Description 


In  this  section  we  present  a brief  description  of  NEDCOM  program 
logic,  and  provide  flowcharts  of  Important  subroutines. 

Figure  2.1  is  a flowchart  of  overall  program  operation.  The 
program  Is  controlled  by  a central  routine.  Control  Sequence,  which 
organizes  the  serial  execution  of  the  subroutines  required  to 
execute  a specific  NEDCOM  run.  Control  sequence  first  eleclts  run 
information  from  the  user.  The  user  chooses  one  of  six  run  type 
options,  which  perform  the  input-output  "housekeeping"  necessarv  to 
retrieve  prior  run  data,  input  new  data,  set  sensitivity  run  para- 
meters, and  so  on. 

Control  Sequence  then  proceeds  to  execute  the  NEDCOM  subroutines. 
First  accumulation  registers  are  initialized  to  zero  and  system  level 
parameters  are  computed.  Each  LRA  is  then  evaluated  in  tvirn.  The 
LRA  data  is  read  from  disk,  and  parameters  common  to  all  four  LOR 
postures  are  computed.  Then  the  life  cycle  cost  of  the  LRA  is  com- 
puted and  printed  for  all  four  postures:  repair  at  a military 
operated  depot,  repair  at  a contractor  operated  depot,  local  repair, 
and  iisraid  at  failure.  Tlie  least  cost  of  the  four  options  is  then 
chosen;  the  costs  and  manpower  requirements  of  this  posture  are 
aggregated  at  the  system  level.  Then  same  process  is  executed  for 
the  next  LRA,  until  all  LRA's  have  been  processed.  The  aggregated 
values  of  LRA  costs  and  demands  are  used  to  cixnpute  the  system  life 
cycle  cost,  as  well  as  system  MTBF.  MTTR  and  so  on,  all  of  which  are 
printed  in  a system  summary. 


6 


Figure  2.1  NEDCO?!  ProRram  Flow 
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In  Che  remainder  of  this  section  we  present  logic  flowcharts 
of  Che  major  N’EDCOM  subroutines. 
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Figure  2.3  Run  Options  1,  2 and 


o 


o 


Run  OoMon  i new  svstem  description  and  LRA  configuration: 

p Ption  . links  a new  LRA  configuration  to  an  existing  svstem  description' 
un  p on  •*  appends  additional  LRA’s  to  an  existing  configuration. 
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Figure  2.4  Pun  Option  3 


Run  Option  3 allows 
and  LRA  data  sets. 


the  user  to  alter  existing  system 


Figure  2.5  Run  Options  5 and  6 
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Run  Option  5 performs  sensitivity  analysis  on  one  system 
variable;  Run  Option  6 executes  a system  run  using  an 
existing  data  set. 
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2.2  NEDCOM  Cost  Equation  Summary 

In  this  section  we  present  a sununary  of  the  demand  and  cost 
equations  used  in  NEDCOM.  The  numbers  to  the  left  of  the  equations 
are  the  equation  numbers  used  in  Volume  I. 


Allocations  from  Manpower  Pools 

Utilized  portion  of  AN  pool: 


3.6)  A (M) 
n 


M M < AN 

AN  M > AN  and  0 < fp(M)  < fp(AN) 

ip(AN)  Otherwise 


Utilized  portion  of  AG  pool: 

1M  - A (M)  M - A (M)  < AG 
n n 

AG  Otherwise 


Utilized  portion  of  AS  pool: 

3.7a)  A (M)  - M - A (M)  - A (M) 
g n g 

No.  to  receive  "A"  training: 

3.8)  A(M)  « Fa  (m)1  + Fa  (m)1 

8 s 

No.  to  receive  **C**  training: 

3.9)  C(M)  - FmI 


Shipboard  maintenance  training  course  cost 


3.26)  TCM  ■ TC  . - DC*(TS/n  + r,  .‘TR) 
m, 1 1,1 


Depot  maintenance  training  course  cost 


3.27)  TCD  - TC . . - r,  .•DC*TR 
d,i  3,1 


Set  MO  * MO  “ F “ 0 in  Manpower  Equations 


System  Demand  and  Training  Course  Cost  Equations 


Average  and  peak  operator  demand 


3.18)  MO  - M - Q*AHR*e*7/(D*h*WH  ) 
o o 


3.19)  MO'  - M'  - M ‘PHR/AHR 


fcrj 


iiMi 


Allocated  portion  of  AN  pool: 

0) 

3.23)  ANM  - AN  . - 

m,i  

V X MTRR 

— .X  X 


Allocated  portion  of  AG  pool: 

m 

i-l 

3.24)  ACM  - AG  . - AG  - % A (M'  ) 

m,i  m ^ g m,x 

x»l 


r 

AN  - y A (M' 
m ^ n m, 

X“1 
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3.20) 


3.21) 


3.22) 


3.25) 


3.26) 


3.27) 


Ship  board  maintenance  demand: 


n 

MM  - M - S H . 
m ^ m,  L 

i*l 


Peak  maintenance  demand: 

MM'  - M"  - M ‘PHR'h/AHR 
m m 


Depot  Maintenance  demand: 


MD  ■ M . ■ 
a 


n 


i*l 


ij 

1 1 


Portion  of  AG  pool  allocated  to  operators: 


AGO  ■ AG  -AG  - y A (M'  . ) 

o ^ S m,i 

i*l 


P 


■J 


Shipboard  maintenance  training  course: 
n 


TCM  ■ TC 


m 


^ TC 
^ m,  1 


i"l 


Depot  training  course: 
n 


TCD  • TC  . ■ 
d 


i»l 


>- 


Operator  training  course 


in  Manpower  Equations 


Sparing  Equations 


Average  demand 


AHR/MTBF 


Peak  demand 


X.PHR/AHR 


Depot  demand 


(N* Ar*DRT)/D*d 


In  port  period 


# of  deployments  in  lead  time  if  depot  stockout 
X - [(DRT  - P)/(D  P)1  ♦ 1 


Replenishment  spares 


)(1  - COND)] 
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Confidence  level  achieved  with  S spares,  demand  lead  time  At. 
K(S,At) 


Poisson: 


K(S,  At) 


x“0 


Normal : 


K(S,At) 


-At 


S it  0 


S • 0 


where  Q(x) 


OD  2 

' -t  /2 


f 2x  •/ X 


dt 


The  following  polynomial  approximation  is  used  to  compute 
Q(x)  for  given  x: 


.2ir  ' 


t 


1 

1 ♦ rlxl 


• .319381530, 
bj  - 1.781477937. 
- 1.330274429 

( R 

Then  Q(x)  » < 


r - 0.2316419 
b^  - -.356563782 
b^  - -1.821255978 

if  X > 0 
if  X < 0 


«*  of  spares  needed  to  achieve  confidence  level  K with 
demand  lead  time  Vt. 


S(\t,K) 


Poisson : 


S( Vt ,K)  • min 


s > 0: 


^ .X 

V e (\t) 


x-0 


> K 


Norma  I : 


S(\C,K)  - 


r 

( \\t  *■  2r\t  1 


-\t 

e 


> 


K 


Otherwise 


where  Z 


Q (K),  that  is,  Z is  such  that 


K 


‘dt 


The  following  rational  approximat ion  is  used; 


Define  y ■ t 


I 


^0  ^ "l' 


♦ d^t  ♦ d,f 


♦ djf 


0 - 1 - K 


t 


\ In(Q>  if  0 < Q < 0.5 

\ :n(l  - Q>  ‘ if  0.5  < Q < 1 


2.515517 


■ 1.432788 


*^0  ■ 

Cj  - 0.802853 

Cj  ■ 0.010328 

Then  2-2 


d,  - 0.189269 
dj  ■ 0.001308 

if  0 < Q < 0.5 
if  0.5  < Q < 1 


Assigned  desired  confidence  level: 


4.17) 


* 


K. 

1. 


Local  Repair 


On  board  spares: 

S.  - S(\.'LRT,  K*) 

1 V V 

B.  • 0 

I 

Depot  Repair  or  Discard 

See  Figure  2.6  for  Che  calculation  of  and  for  the  depot 
repair  or  discard  LOR  posture. 
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Adjusted  unit  cost : 


4. 10)  f(UC. ) ■ UC,  . 

i i.i 


N(Qq  S.  s:)  ♦ dB. 

t I 1 

i 


^[log  RRATE/log  2] 


Discount  factor: 


;.i)  L ■ ' (I  ♦ p) 

t*=l 


-t 


Non-Manpower  Cost  Equations 


5.5)  C,  . « f(UC.)rN(Qq.  ♦ S.  ♦ s:l)  ♦ dB.  1 
4,1  1 L >■  ^ i i J 


Production  and  spares: 


5.7)  C, 


PT 


[log  RRATE/log  2] 


n 


i-I 


Installation  and  checkout: 


Cj  - N»Q*ICO 


t 

► 


i 


i 

i 


1 

j 


] 
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1 DIM  SYS(80):  DIM  1DI!1M):M  = CHR$  U):  fRIiNiT  FRInT  IiRi’FRn":  TEXT 


: SPEEDS  :oo:  print  chr$  (Sd:  ccts  lo 

2 INPUT  QI!  RETURN 

3 PRINT  az;  RETIRN 

4 INPUT  ilZt:  RETURN 

5 PRINT  aZ«:  RETURN 
II  REAIIC1.G2>S3 

21  DATA  .3l9381530f  -,3(£6Z^2f  1.78Ur793T 
30  READ  CltG5>G9,66 

41  DATA  -1.82I255979-1.3302744:9.. 2314*19, .3989422604 

45  READ  CI.Cl.C2iC3.C4,C5 

46  DATA  2.515517»0.80:!853.0. 010328. 1.432.^.0.189269, 0.001303 

47  REM  INPUT  COEFPICENTS  FOR  NttRMAL  APRIWIX.  USED  IN  SPARES  CAtCULhliON 

49  REM 

so  REM  mmmmtmmm  ccntrce  seguence  itmmmumnnmu 
55  REM 

60  REM  tm»«tmiNTRC»lt»um4 
70  REM 
81  HOME 

91  PRINT  TAK  IZl-NEDCOM" 

101  VTAB5 

IM  PRINT  TAK  3)^^  ELECTRONICS  DESIGN  COST  MODEL" 

121  PRINT  TAD(  10  riCLELCPED  FDR  IF-122H' 

131  PRINT  TAK  10  VHARDMAiN  PROJECT  OFFICE* 

141  PRINT  TAK  19  TW’ 

151  PRINT  TAK  11  )"THE  ASSESSMENT  GROUP" 

161  PRINT  TAK  9)-SA)(TA  MCNICAf  CALIFCRNIA* 

171  PRINT  : PRINT  1 PRINT 

181  PRINT  'THIS  IS  AN  INTERACir.E  MODEL,  PLEASE* 

191  PRINT  ‘ANSNER  A FEW  GUESTIGNS  SO  WE  CAN'  BEGIN." 

201  PRINT 

211  PRINT  "TO  ENTER  A NEW  DATA  SET.  TT^E  1" 

221  PRINT  *T0  ENTER  NEW  A NEW  LRA  DATA  SET,  TYPE  2" 

23  PRINT  "TO  ALTER  A DATA  SET, TYPE  3" 

241  PRINT  "TO  ADD  NEW  LRA  TYPES. TYPE  4" 

251  PRINT  "SENSITIVITY  RUN,  OLD  DATA!  TYPE  5" 

255  PRINT  "TO  RW  SYSTEM,  TYPE  6" 

241  PRINT"  “ 

23  INPUT"  PLEASE  RESPOND  WITH  CODE  NO.:"  fXC^T 

275  IF  XBPT  1 OR  XOPT  > 4 THEN  PRINT  "PLEASE  RE-TRY."!  GOTO  270 

201  PRINT"" 

291  HONE 

3»  PRINT  "PLEASE  ASSIGN  AN  ID  » TC  THIS  RL:N." 

321  PRINT  "THE  FORMAT  MUST  BE  DDMMYYX'X  WHERE  XX" 

33  PRINT  "IS  A UNIQUE  NO.  FOR  THIS  RUN" 

341  INPUT  * RIM  ID#:  "KIOIIRNC  * VAL  \GGIJ:RN$  = GOII  IF  LEN  (i3GI)  n ' S THEN  340 
351  VTA8  131  mSE  1 PRINT  "PLEASE  REMOVE  THE  PROGRAM  DISK  AND  PLACE".'  PRINT  "YOUR  WT 
A DI*  INTO  THE  DISKETTE  READER.'!  NCRM.sl 
361  PRINT  : PRINT  "PRESS  ANY  KEY  WHEN  READY' : C.ET  uGl 
371  ON  XOPT  GflSUB  1000.3005-3050. 3210. 341.'.555'' 

371  PRINT  ! PRINT  1 IF  XOPT  > 4 THEN  375 
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372  PRIJfT  'W  YOU  yiy«T  TC  RU-S  THE  SYSTErt?*:  I(»FiJT  “a=YE3»2=NC)  "fXY 

373  IF  XT  < >1  THEN  END 

374  PRINT 

55  INPUT  "FASiRaN=o,  a.(»m  “>sa 
377  GOSUB  liooo:  REM  OISK  SUMP  SU3R0UTI(^ 

381  GOSUB  5100:  REM  INITIALIZE  SYSTEM  L'^IABlES 
391  REM  READ  IRA  VARIABLES  INTO  ARRAY  FROM  Sia( 

40»QQ$  =*A"  + STR$  (IXX  = I)  * RNC  + iXX  = 2)  < RM2):  FRINT  Ii«i"CfEN  ’JQGiiM'OfLlOO"; 
PRINT  D1{*REA0  “IQQ$5"iR*5CTR 

4M  FOR  I = 0 TO  6:  GOSUB  2:A(I)  = 02:  NEXT  : PRINT  D$i'CLCS£'' 

411  PRINT  CHR$(9)TT 

412  HOME  : PRINT  I PRINT  t PRINT  “PROCESSING  LRA  NUMBER  SCTS 

413  PRINT  CHRi(9)J'N“ 

4U  REM 

415  GOSUB  5200 : REM  COMPUTE  LRA  Av..  PEAK  FAILURE  RATE.  lESlRES  C&SfISENCE  L£Va  AND  MA 
NPOW  POOL  ALLOCATION  FACTOR 

4U  REM 

4a  GOSUB  4100t  REM  PRINT  HEADING  FOR  LRA  SUMMARY 
423  REM 
4a  REM 

42  REM  * 1 1 CONTRACTOR  OPERATED  DEPOT  t t * 

42B  REM 

48  I = «:  GOSUB  66701  REM  SET  COD  POSTURE  SWITCHES 

431  GOSUB  5500:  REM  DEPOT  SPARES  SUBRCUTM 

44#  GOSUB  6330:  REM  COMPUTE  AND  PRINT  LRA  COSTS  IN  COD  POSTURE 

443  REM 

444  REM 

445  REM  * 1 1 military  OPERATED  DEPOT  * » * 

444  REM 

441 1 = i:  GOSUB  6672:  REM  SET  MOD  POSTURE  SiilTCftS 

44» K(  1 ) s K(  0 ):S(  1)  = S(0  ):6(  1 ) = K 0 ):  REM  SAME  SPARES  BUY.  ACHIEVED  CONE . AS  IN  COD 
455  COSUB  6330:  REM  COMPUTE  AND  PRINT  LRA  COSTS  IN  MOO  POSTURE 
45B  REM 
45B  REM 

441  REM  * 1 1 LOCAL  REPAIR  * * * 

461  REM 

445  I =2:  COSUB  6674:  REM  SET  LOC.  POSTURE  SWITCHES 
471  GOSUB  6250:  REM  LOCAL  SPARES  SUBROUTINE 

481  GOSUB  6330:  REM  COMPUTE  AND  PRINT  LRA  COSTS  IN  LOCAL  REPAIR  POSTURE 

483  REM 
411  REM 

4«  REM  « 1 1 DISCARD  AT  FAILURE  * 4 » 

484  REM 

481  s 31  GOSIS  6676!  REM  SET  DISCARD  FCSTURE  SWITCHES 

495K(3)  »K(0):a3)  = S(0).*B(3)  = KO):  REM  SAME  INITIAL  SPARES,  CCNFIIENCt  LEVEL  AS  K 
POT  REPAIR  POSTURES 

505  G0S18  6330:  REM  COMPUTE  AND  PRINT  LRA  COSTS  IN  DISCARD  AT  FAILURE  POSTURE 

514  REM 
5U  REM 

5U  cost  66801  REM  6680  CHOOSE  LEAST  COST  FOSPURE  (I=0,1.2,3>  AND  SUMS  LRA  COSTS 
S13  REM  FOR  CHOSEN  F'CSTURE  TO  TOTAL  SYSTEM  COST 
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514  REH 
50  CTR  » CTR  M 
5U  REH 

S>  IF  CIR  < * R THEN  403:  REM  READ  WTA  FGn  HEXT  LRA 

525  COSm  6925:  REH  AFTER  COSTS  OF  ALL  LRA'S  ARE  CCMfUTEIi*  6925  COnFUTES  SlSfEH  iiia  C 
OSTS 

5»  GOSH  4500:  REH  PRINT  SYSTEM  LE^EL  SUMMARY 
544  IF  XDPT  < > 5 TICN  600 

55ISY(F9|s  SY(f9)  + Ii:  REH  INCREMENT  SENSITIVITY  A.’WcVSIS  '.'ARIAPLE 

564  IF  SRP)  > EOJCTR  THEN  600 

571 RNO  » RHO  4 i:  REM  INCREMENT  RUN  NUMBER 

581  GOTO  177:  DEM  RUN  SYSTEM  AGAIN 

604  END 

681  REH  end  of  caNiRO.  sequence 

691  REH 
695  REH 

704  REH  tmtDISK  COMHANDSmt* 

714  REH  tStREAD  SYS  DATAm 

724  00$  « T + STR$  CXX  = 1)  * RNO  + (XX  = 2)  t RHO) 

731  mHinrm  “}(iW5*fV0.i.2O" 

744  FOR  1 » 0 TO  80:  PRINT  DIJ'READ  •>GG$J'»R">I 
751  G0SUB2:SY(I>  = QZI  NEXT  K PRINT  Dli'acSE" 

751  IF  MPT  s 2 THEN  RETURN 

TSH  = ST(S2) 

754  00$  ='C*  4 STR$  (RHO) 

756  PRINT  D$«'OPEH  "{QOIJVVOfLOS" 

75B  FOR  I » 0 ton:  PRINT  D$I*READ  "JQQDVR'fl 
764  G0SUl4:iD$(I)  = 02$:  NEXT  K PRINT  Ii$)"CLOSE’ 

762  RETUIH 

745  REH 

774  REM  ItttRITE  SYS  DATAtl* 

791  PRINT  MfOPEN  B*}RNO5*»WfL20' 

794  FOR  I s 0 TO  80 

841  PRINT  II$»-«ITE  B'JRNOS'fR’;! 

814  02  =ST(I>;  fiOSJB  Y.  NEXT  I 
821  PRINT  D$l  "CLOSE" 

834  REH  OtORITE  LRA  IDENTIFIERS*** 

93500$  =*C"  4 STR$  ((XX  = 1)  « RNC  4 (XX  = 2)  * RHO) 

844  PRINT  W)"QPEN  "*0I1*T",V0«L35'' 

851  FOR  I a 0 TO  N:  PRINT  D$)"URITE  'fCGIi-fR'fl 
86402$  a ni$(I):  CCSUB  5:  NEXT  I : PRINT  P*i"CLOS£“ 

874  RETURN 
9t  REH 
9H  REH 

1414  REH  ttvmntmtm  new  data  set  (XOPTai  > »************«**t***4.*»**M.***»** 

lOU  HOIC  : PRINT  a«$  (9)T"r 

1045  XX  a i:  REM  XXal  INDICATES  USING  N£«  DATA  SET  PCS  DISK  COMMANIS 
1044  PRINT  "PLEASE  ENTER  THE  DESIRED" 

1014  PRINT  "VALUES  DESCRIBING  THE  SYSTEM" 

1021  PRINT  "AND  ITS  OPERATING  ENVIRONMENT, * 

1034  PRINT  : PRINT 
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INVERSE  : PRINT  “ iUH  NAVY  ENVIRC-NMENTAl  AnD  CCST  FACTCRS  ****»".'  NCAhAc 
PRIKT  : PRINT 

INPUT  "AVERAGE  COST  OF  TRAI.NING  M/CAV/STOICNT  > SDC 

INPUT  "COST  Of  A-SCHOCl..  MAINTENANCE  TECHNICIAN  ($/STUIiENT)  "JII 

INPUT  "COST  OF  A-SCHOOl.»  OPERATOR  U/STUHENT)  ",‘TA 

INPUT  “ANNUAL  BILLET  C0ST»  MAINTENANCE  "}B1 

INPUT  "ANNUAL  BILLET  COST.  a^^KATOS  ‘iBI 

INPUT  "ANNUAL  BIUET  COST.  UNTRAINEB  PERSONNEL  “{BG 

INPUT  "ANNUAL  BILLH  COST.  MAINTENACE  TECH.  AT  MILITARY  IffCT  “Jfil 

INPUT  "ANNUAL  BILLET  COST.  OFFICER  SBC 

INPUT  "AVAILABLE  WEEKLY  WORK  HOURS.  MAINTENANCE  TECHNICIAN  "{HI 

INPUT  “AVAILABLE  WEEKLY  WORN  HOURS.  WATCH  STAnDER  ”i* 

INPUT  "AVAILABLE  WEEKLY  WORK  HOURS.  I£FOT  TEW.  "}«I 

INPUT  "LABOR  UTILIZATION  RATE  "iU 

INPUT  "ANNUAL  ATTRITION  RATE.  3HIPB0AR2  (L'YR)  "iTI 

INPUT  "ANNUAL  ATTRITION  RATE.  DEPOT  PERSONNEL  (L'YR)  'ST' 

INPUT  "COST  OF  PERSONNEL  ADDITION  TO  A PLATFORM  ($/fERSON/SHIP>  "iZS 

INPUT  "AV.  ANNUAL  NO.  OF  DEPLOYMENTS  <r£PL/SHIP/ YEAR)  'WH 

INPUT  “ AVERAGE  lEPLDYMENT  PERIOD  ( MYS ) " } D 

INPUT  " ANNIW.  DISCOUNT  RATE  ( X/YEAR  > * M 

INPUT  "CONBEMNATION  RATE  "iW 

INPUT  "RAno:  AHIUAL  EQUIPMENT  SUF'PCRT  COST  INITIAL  PURCHASE  COST  "{MS 
INPUT  "COST  OF  TECH.  DATA  DEVELOPMENT  ( J/PAGE ) “ill 

INPUT  "ANNUAL  TEW.  DATA  MAINTENANCE  RATE  (t'PG/Y'R)  ")T7 

INPUT  "COST  OF  INaRED  FREIGHT  ($/LB/WLE ) “ iCi 

INPUT  ■ ITEM  ENTRY  COST  (l/ITEN)  “il£ 

INPUT  " ITEM  MANAGEMENT  COST  ( l/ITEH'YEAR ) " i IM 

PRMT  : PRINT 

IN«RSE  ; PRINT  • mt*  SYSTEM  OPERATING  ENVIRONMENT  mu“l  NCRMAl 
PRINT  : PRINT 

INPUT  “AV.  NO.  AVAILABLE  MAINTENANCE  PERSaSNEL  PER  SHIP  “JAl 

INPUT  "AV.  NO.  AVAILABLE  OPERATORS  PER  SHIP  “JAI 

INPUT  "AV.  NO.  AVAILABLE  UNTRAINEIi  PERSONNEL  PER  SHIP  ")A£ 

INPUT  "NO.  OF  SHIPS  ON  WHICH  SYSTEM  IS  DEPLOYED  ”)W: 

INPUT  "NO.  OF  SYSTEMS  PER  SHIP  'iG 

INPUT  "LENGTH  OF  SYSTEM  LIFE-CYCLE  ( YEARS ) “ ii 

INPUT  "AV.  SYSTEM  OPERATING  HOURS  PER  YEAR  (HR/YEAR/SYSTEM)  'iAr 

INPUT  "PEAK  SYSTEM  OPERATING  HR.  PER  DEPLOYMENT  PERIOD  ( HR/DFL/SYS ) “!Ph 

INPUT  "REIUCTION  RATE  (LEARNING  CURVE  SLOPE)  “ {RR 

INPUT  "AVERAGE  REPAIR  MATERIAL  COST.  LRA  REPAIR  ",‘fiF 

INPUT  "NO.  OF  STOCKACE  DEPOTS  "JDE 

INPUT  "NO.  OF  REPAIR  DEPOTS  -JIP 

INPUT  "COST  OF  LRA  REPAIR  AT  CONTRACTOR  DEPOT  « )C0 

INPUT  "DEPOT  RESPONSE  TIME  ( DAYS ) " ;[« 

INPUT  "SHIP  RESPONSE  TIME  «JSR 

INPUT  "DISTANCE  BETWEEN  REPAIR  AND  SUPPLY  DEPOTS  ")DI 

PRINT  { PRINT 

IRACIISE  : PRINT  " |«m  SYSTEM  MANPOWER  m TRAINING  REQUIREMENTS  tm*" ! N 


normal 


1511  PRINT  ; PRINT 

ISR  INPUT  "REQ.  NO.  OF  OPERATORS  PER  SYSTEM 


INPUT  'RK.  NO.  OF  OFFICERS 

I54*  INPUT  'OTHER  PERSONNEL  COSTS  (SEOI^in  CLEAR..  ETC.) 

15*1  INPUT  *REQ.  DAYS  C-SCHOCL  OPERATOR  TRAINING 

ISI  INPUT  "REQ.  DAYS  C-SCHOOL  ilAINTENANCE  TRAINING  (SYS.  ORIEN.  t LRA  R4R) 

1581  INPUT  'AV.  NO  C-SCHOOL  TRAINING  DAYS  TO  REPAIR  AN  LRA 

15»l  PRINT  ; PRINT 

1*11  INWSE  : PRINT  • m«  SYSTEH  KSIGN  PARAMETERS  I****'!  NORMAL 

161*  PRINT  : PRINT 

1613  INPUT  'ICO  COST  PER  SYSTEM 

16>  INPUT  'ESTIMATED  SYSTEM  PRODUCTION  LOT  SIZE 

168  INPUT  'SYSTEM  ASSEMBLY  COST 

161  INPUT  'DESIRED  SYSTEM  CONPIDENCE  LELEL  AGAINST  STOCSGUT 
168  IF  KS  > » 1 OR  KS  * * THEN  PRINT  “CaNFISENCE  LELEL  MUST  BE  IN':  PR 
0»1 ).  PLEASE  REENTER.';  PRINT  : GOTO  163\) 

1631  INPUT  'NO.  OF  DIFFERENT  LRA  TT'PES 

16*1  INPUT  'AVERAGE  LRA  WEIGHT 

168  INPUT  'NO.  OF  NEW  PIECE  PARTS  IN  SYSTEM 

1675  INPUT  'SYSTEM  FAULT  ISOLATIttN  HARIWARE  COST 

161  INPUT  'SYSTEM  FAULT  ISOLATION  SOFTWARE  COST 

171*  INPUT  'COMMON  S&TE  HARDWARE  COST  PER  SHIP 

171*  INPUT  'NO.  OF  PACES.  SYSTEM  DESCRIPTIM 

17»  INPUT  'NO.  OF  PAGES.  LRA  FAULT  ISOLATION.  RiR 

173*  INPUT  'AV.  NO  PAGES.  LRA  REPAIR  DOCUMENTATION  (FG./LRA) 

17**  INPUT  'SYSTEM  SCHEDULED  MAINTENANCE  REOUIREMENT  (MAN-HR/m- SYSTEM) 
286*  HOME  ; PRINT  'LRA-SPECIFIC  DATA' 

2862  UC  >* 

2U  GS<« 

2W  PRINT  'PLEASE  PROVIDE  WTA  FOR*.' 

2871  PRINT 
» CTR  » CTR  * I 
2fl6  PRDfT  'LRA  TYPE  'CTR'  OF  'N 
2*»  PRINT  ; PRINT  t PRINT 

292  INPUT  'LRA  IDENTIFIER  ( 3*  CHARACTER  LIMIT  > " m\  CTR ) 

298  PRINT 

2»  PRINT  "UNn  COST  AT  LOT  SIZE  '{LOT.*:  INPUT  ' 

"{A(*) 

291*  INPUT  'NUMBER  OF  APPEARANCES  IN  THE  SYSTEM 

29»  INPUT  'MEAN  TIME  TO  FAULT  ISOLATE.  RiR  THIS  LRA  (*. ) 

2935  INPUT  'MEAN  TIME  TO  REPAIR  THIS  LRA  («. ) 

296*  INPUT  'LRA  DUTY  CYCLE 

29*5  IlfUT  'LRA  (CAN  TIIC  BETWEEN  FAILIK 

2916  INPUT  'SUPPORT  AND  TEST  EQUIPMENT  COST  SPECIFIC  TO  THIS  LRA 

298  GL  »A(1)  *A(6)  I A(2)  / A(5) 

2971  GS  >tS*GL 
2*72  UC  » UC  * Al*) 

2*73  QQ««  'A'  * STR*  ((XX  s 1)  t »IO  + <)«  s 2)  * RMO) 

297*  PRINT  D»» 'OPEN '{Q»{'.V*,L100' 

2976  PRINT  Wl'URITE  • >00$ {'.R'lCTR 

2971  FOR  I » 0 TO  6{0Z  » A(I):  GCSUB  31  NEXT  I 

292  PRINT  Dll -aOSE' 

2*B  HOC  1 IF  CTR  < N GOTO  2880 


■{ICC 

■{LOT 

■{SAC 

“{KS 

INT  "RANGE  ( 


■{Ail) 

"{Ai2) 

'{A(3) 

*{Ai4) 

■{A(S) 

■{A(a) 
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290  SY(79)  s GS;SY<S0)  » X!  IF  XCPT  = 4 THEN  RETURN 

2984  GOSJ  1039):  REH  FILL  SYS  ARRAY 

29«  GOSa  780 : REH  WITH  SYS  DATA 

2987  PRINT  : PRINT 

30M  RETURN 

3012  REH 

308  REN  t«  E»  NEULVIL  t« 

3004  REM 

3115  REN  mmmttmtmtmmm  m lra  data  (xopt=2)  umimtmtmmtt 
3007  PRINT  : PRINT 

3010  PRINT  “PLEASE  TYPE  THE  IDO  OF  THE  SYSTEM'':  INPUT  “DATA  SET  TO  BE  US0:  “iQQOIRMC  = 

VAL  (QQO):  IF  LEN  (QGOX  >3  THEN  3010 
300  PRINT  DOJ'UERIFY  B“fRMOi*iVO* 

3020  PRINT  : PRINT 

3025  INPUT  “HON  MANY  LRA'S?  "iNICTR  = 0 
3031  XX  = 2:  GCSU8  720 : REM  READ  SYS  DATA 
3031  SY(52)=  N 

3112  GOSUS  liooo:  REN  DISK  DUMP 

3035  XX  » i:  REH  CREATE  NEW  DATA  SET  Of  FILE  UNDER  NAME  OF  CURRENT  IDO 
308  GOTO  2860 : REM  GET  NEU  LRA  DATA 
3045  REM  XDPT2  RETURNS  TO  CStQ  FROM  XOPTl 

3047  REM 
3M8  REH 

3B>  RQ  OOttWOOOmt  CHANGE  EXISTING  IWTA  SET  IXOPT^j)  OOtUOaoatOOOtOttOOOtO 
3057  PRINT  : PRINT 

m PRINT  "PLEASE  TYPE  IDO  Of  THE  DATA  SET":  INPUT  "TO  BE  CHANGED:  "*Q£ii:RMO  = UAL  (Q 
M):  IF  LEN  <000)  < ^ 8 THEN  3)60 
3042  PRINT  Ml'UERIFY  B"*RMC}'fVO" 

3063  PRINT  : PRINT 

3045  PRINT  "TO  CHANGE  SYSTEM  DATAi  TY'PE  1.":  INPUT  "TO  CHANGE  LRA  DATA.  TY'PE  2.  "iXY 
3047  IF  XY  = 2 THEN  3110 

3069  PRINT  : PRINT 

3070  PRINT  "TYPE  THE  WRIADLE  SEQUENCE  NO,.":  PRINT  "A  COMMA.  AND  THEN  THE  NtU  VALUE.":  INPUT 
"SEOUEHCEO.  NEW  VALUE’  "TI.SYID 

3072  PRINT  D«5"0PEN  B"!RM0;".v'e.L2)" 

3075  PRINT  M .*  "WITE  B"  .‘RMOJ " .R" } I 
3081  Q2  » SY<  I );  COSUB  V,  PRINT  DO T "CLOSE" 

308  PRINT 

3185  PRINT  "DONE  I4ITH  SYSTEM  DATA  CHANGES?":  INPUT  "(1=YES.2=NG)  "{XY:  PRINT  : FR:.4T  : IF 
XY  « 2 THEN  3070 

3090  PRINT  *li«UI>  YOU  aXE  TO  CHANCE  LRA";  INPUT  "DATA?! ]=V£S.2=NC ) "JXY 
3100  XX  » 2:  GOSUB  720:  REH  READ  SYS  DATA:Si.l=i:REH  SUITCH  INDICATES  DATA  SET  AlREADV  REA 
D 

3115  IF  W = 2 THEN  RETURN 

3110  REM  mt  CHANGE  LRA  DATA  t»«t 

3111  IF  SH  > 1 TICN  3113 

3112  XX  > 2:  GOSUB  720.’  REH  READ  SYS  DATA 

3113  CS  a ST(79):X  » SYTSO) 

3116  PRINT  : PRINT  : PRINT  "THERE  ARE  CURRENTLY  "SYvSC)'  LRA  TYPES" PRINT  "IN  THIS  3VST 
EM"{  PRINT  ; PRINT 

3115  INPUT  "SEQUENCE*  OF  LRA?  “»CTR 
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3117  PRIHT  { PRINT 

3118  IF  CTR  > SIKK)  TICN  PRINT  "TNBiE  ARE  atY  ‘31(525^  IN  THIS  SYSTEM.":  MTS  3115 
3121  OQi  =•(»■  + STR$  (RMO) 

3125  PRINT  Wi'OPEN'fQQIJNVOfLlW:  PRINT  DC'REMl’iQfitr’rfi'iCTR 
31*  FOR  I s 0 TO  61  INPUT  Ail  >:  ICXT  : PRINT  MJ’ClCSE" 

31fiUC  syc  - mi) 


31B  CS  » 6S  - Ail)  * A(4)  * A(2)  / AiS) 


31S 


PRINT  'VALlfS  CURRENTLY  IN  THIS  RECORI'": 
•l-aiPAa-fAlD.H-lWTY  CYCLts-TAi*):  PRINT 


PRINT  'ARE;":  PRINT  “0-ti*uT  CC3T=';A(4);  PRINT 
“2-MTRSjx=’iAi2)»'5-MTBF=’iAi5);  PRINT  "3- 


NTTR«*|A(  3 )f '6-S4TE  COST**  i Ai  a > 


317  PRINT 

31#  PRINT  "PLEASE  T>TE  VARIABLE#.  A CCrtMA.*:  INPUT  "ANC  THE  NEW  VAlM!  ")I.AiI):  PRINT 


31«  INPUT  "MORE  FOR  THIS  LRA?  (YES=l.NO*2)  "»XX:  PRINT  .*  PRINT  : IF  KX  = 1 MTG  3i4C‘ 
31#UC  *K  4 AiO) 

3U3  CS  *CS  4 Ail)  I A(4)  » Ai2)  / AiS) 

31#  PRINT  "TIC  CURRENT  IDENTIFIER  IS,'".*  PRINT  IMCCTR):  PRINT  : PRINT 
314T  PRINT  "WOULD  YOU  LIKE  TO  CHANGE  THE*;  PRINT  "IDENTIFIER  FGR  THIS  LRA?"*.  INPUT  ‘iYES 
»l»NO*2)  ".Xir:  PRINT  ; print  : on  XY  GOTG  3148.3154 
31#  PRINT  "NEW  LRA  IDENTIFIER":  INPUT  lOliCTR) 

31#QW  s'C"  ♦ STRt  (RMO) 

315#  PRINT  DIJ'OPEN  •Pfl0#.*"fV0.L35" 

3151  PRINT  D$5"WITE  "iQQiT".R**.CTR 

3152  QZ«  *ID>(CTR):  GOSUB  5 
3151  PRINT  D#;  "CLOSE" 

315#  00#  * "A"  + STRI  (RMO) 

3155  PRINT  WfOPEN  "PQQI.*",W,L1M" 

31#  PRINT  M»*«ITE  ■PQQ#;".R"}CTR 

31fi  FOR  1 » 0 TO  ATQZ  * AiDt  GOSUB  3;  NEXT  I 

3171  PRINT  MJ'CLDSE* 

3172  PRINT  : PRINT 

3175  I>«T  "AWmCR  LRATi  1=YES.2=NG)  "{XYt  PRINT  t PRINT  : IF  XY  = i THEN  3115 

317#  SY<7?)a  CS;SY<Si^)  = UC 

3177  PRINT  0».*"OP£N  8"{fiM«".V0.L2e" 

3171  FOR  I * 79  TO  30 

3179  PRINT  DIJ'WITE  B-lRMOS".R'5i:fl2  = SYil).*  COSUB  31  NEXT  ; PRINT  D$J*ClOS£“ 

31t  PRINT  "WOULD  YOU  LIKE  TO  CHANGE  SYSTEM":  INPUT  "WTATi  l=y£S.2=NC > »,‘XY:  If  XY  = 1 THEN 

3069 

3n6  RETWN 
3m  REX 
321  REX 

90  REX  ttwttuumimmmummtt  add  lra^s  ixcpT*#) 

325  PRINT  : PRINT 

3»  PRINT  "PLEASE  TYPE  10#  OF  THE  DATA  SET":  INPUT  "TO  BE  APPENie:  ■5<5Gt;RMC  = vVL  { 

00$ ){  IF  LEN  (001)  < > 8 THEN  3220 
32»  PRINT  DO!  "VERIFY  B"»RM01"fVC" 

32»  XX  * 2:  REX  USE  EXISTING  DATA  SET 
3ai  GOSUI  720:  REM  READ  SYS  WTA 
3242  PRINT 

3215  PRINT  "TWiE  ARE  CURRENTLY  "{SY<52){"  LRA'S  IN':  PRINT  "THIS  SYSTEM.  PLEASE  ENTER 
THE";  PRINT  'TOTAL  NUMBER  OF  LRA'S  KSIRED":  INPUT  'FOR  THE  SYSTEM,  “.n 


•02^ 


32»  L5  » Sr(K):  RE.H  HtHi  fSEVICb's  C>  LSA  ?.T£S 

335  SY(S2)  » N:  REM  CHWtft  iC.  ■>'  LRA  TYP£3  In  S^STSft 

3254  PRIM  »«-(3Pa 

3257  PRIKT  Mi-*ITE  B*;RhC-''.fi’J52 

33  QZ  « ST(52):  C-CSUB  3.*  PRINT  OlJ’ClCSi" 

33  LOT  »Sr(49> 

m PRwr : print  : print 

327»  PRIM  ’PLEASE  PRCL’ISE  WTA  PGR  T.SE':  PRIM  'ADDITIGNhc  lRA  TVPE3I* 
3275  CTR  = L5:  PRIM 

33  GOa*  2830.*  REM  GET  DATA  PGR  ACDITIOiAc  LRA  TYPES 
33  PRIM  WS’OPEN  B’iRM05’»Y'0.L2-J’ 

3300  FOR  1 » 79  TO  SO 


350  PRIM  DIJ’yRITE  8’JR«GJ’«R’;ltQ:  = SV.I 
3331  LS  » L5  + i:  REM  THIS  IS  THE  NUHKR 


GOSGe  3;  next  ; PRINT  Mi’ilGSt’ 
THE  I ST  AISDI’ICNh.  JvA  TYPE 


33*  PRIM  D«!‘OFEN  C’:KMC«'.W.L35* 

3341  FOR  I = L5  TO  N:  PRINT  DOJ’NRI'E  C'iRtC^i“»h*iI 
33*  QZO  * IM<  n:  G0SU3  5:  NEXT  I : print  DOJ’CvSSE" 


3»  RETIRN 
3*0  REM 
33B  RES 

34i  REN  4ltMCU«tttttlUU44)^«»  SENSITIVITY  RON  i XGPT=5  > »itUmU4»4444lU4»u 
3407  PRIM  : PRINT 

3410  PRIM  -PLEteE  TYPE  IDO  0-'  THE  DATA  SET’t  INPUT  “TC  3E  liSEIU  ‘>i5G$‘.RMC  = v'AnGGOi 
: IF  LEN  (000)  < > 3 THEN  3410 


3415  PRIM  MJ’VERIR-  D’JRMCi'fW’ 


3431  XX  = 21  G0S08  7201  SEM  READ  SYS  I«TA 
34S  PRIM  : PRIM 


34*  INPOT  ’SeeiTIVIT^-  ANALYSIS  VARIABLE  NO.”‘}F> 

34S  PRIM  ’THECURR9»T  VALUE  OF  V'ARIABLE  'F?:  PRINT  'IS  “SY(r?) 
341  PRIM 


3040  PRIM 


'INDICATE  T?€  UPPER  BOUND.  LONER 


PRINT  "KYNI-'i  AvD  L'vCREMEnT  FtIR  SENSI-'.’  FSInT 


•TlVm  ANALYSIS.’ 

3445  PRIM 

34*  INPUT  ’UPPER  BOUMfe’JECJCTR 
34B  INPUT  "LIKR  BOUNIb’.'LV 
3440  IfffUT  "INCRENENTs’ai 

3470  SY(F9»  * Ltl  REM  SET  SENSITIVITY  ANALYSIS  VARIABLE^  LOWEST  vA^UE 
34*  RE7IM 
35*  REH 
3510  RER 

39  REii  mtmtmmtmtmmmutm  run  system  a-0PT=d>  u4«»uu4«uim 
33B  PRIM  : PRIM 

35I0  PRIM  ’PLEASE  TYPE  TIC  IM  OF  THE  DATA’:  l.NPliT  'SET  TO  S£  USED:  “jGG^;^MG  = vA.  \ 
CKH);  IF  LER  (QQO)  < > 3 THEN  35A<) 

3545  PRIM  mi’VERIFY  B’JRMOJ’.VO* 

355  XX  * 2.*  REN  USE  EXISTING  DATA  SET 
35*  COSm  720:  REM  READ  SYS  W.TA 


34*  RETUtN 
41*  REM 

411  REM  »«  PRNTLRA  HEADING  «4 
4103  REN 
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♦IM  PRW  CHR$(9){'r 

♦i«5  PRilfT : PRixT : pRWT PRINT : print 

41W  PRINT  SPC(  3 )}*LK;  NUMBER  SCTR;  SPC  40);Hi$iCTR) 

413  PRINT 

4125  PRINT  SPC  Idil'INPUT  WTA.*" 

41*  PRINT  SPO  13)fWIT  COST  QIPA  NTRifi  NTTR  tUTV  CTC  fiTSf  jaTE 

cosr 

405  A0<  t STRt  (MO)) 

4140  Al«  - STR$  (Ml)) 

4145  A21*  STW(M2)> 

41*  A3*  » STR*  (M3)) 

4151  SP*  « • 

41SA4*  3 STR*  (M4)) 

4144  AS*  = STR*  (MS)) 

4U1  A4*  • STR*  (M6)) 

4U5  PRINT  3PC(  13)J  LEFT*  (SP*.7  - LEN  (AO* ))  + AOI!  LtrT*  (S-*i?  - L£N  (Al* ))  t All 
i LEFT*  (SP*.lO  - Le(  (A2*)>  4 A2*J 

4142  PRINT  LEH*  (SP*»10  - LEN  (A3*))  + A3*}  LEFT*  (SP*,10  - LEN  (Ms^))  t A4»;  lifT* 
(SP*.ll  - LEN  (A5*))  + A5*}  LEFT*  (SP*,10  - LEN  (Ao*))  t Ao* 

4171  PRINT  : PRINT 

4175  PRINT  SPCt  3); ‘SIPFCR:  POLICY  SimWIESr 

41*  PRINT  SPQ  31  )}•«*  THOUSANDS  OF  DfXLARS  **44*}  SPC(  20))’**  PlEET  rERS>NEL  SEOU 

IROCHT  $V 

4m  pm  SPO  27)i*LCC*}  SPD  10)}*fttNP«’}  SPd  9)}*PRCD’}  SPIK  9))*GrriER*i  SFC(  13) 
J’DnET)  SPC(  6)}*A*}  SPC(  3)f'C* 

41*  PRINT  SPO  3))*L0R  POLICIES*} 

4115  PRINT  SPC(  IDi-COSTS*}  SPCv  10)}'C0ST*}  SPC(  10>}*CCST'}  Sf£(  9)}*C0STS*}  SfC<  13 
IT'liWRN  SnX  4)}*SCHL*}  SPC(  5)}*SCHL* 

42*  PRINT 
411  REItfIN 

44*  REX  4«44mU44t««****t*4******44»***  SUDRCLTINES 
4SN  REN 

4*1  REX  *ttt#RINT  SYSTEM  SOHMARV***** 

49*  REM 

4*4  PRINT  Qfil  (9)j*)r:  PRINT  I PRINT  5 PRINT  ) PRINT 

43*  PRINT  SPO  47H*SYSTEM  COST  SUWAY’JSF*  = * *;  PRINT 

45*  PRINT  • tmtmmm  CENERAL  results  ***t*4444**t*4**}  SPCi  33>}***u  RUN  InPCRH 

ATI(M  tm* 

4*1  PRINT 

4*5  PRINT  • life  CYCLE  (3)51*} 

4525  PRINT  SPO  12)1  LEFT*  (SP**  10  - LEN  (L*))  4 L*)'  (»'000)''} 

45*  PRINT  SPC(  33))*aATE  ’»  HID*  (RN».3*2)}*/*}  LEFT*  (RN«<2)}"/*}  Hlli*  (RN».5'2) 

458  PRINT  SPC  81  M'SEDUENCE  NO.  *1  RISHT*  (RN»,2) 

45*  PRINT  • SYSTEM  REORRINC  UNIT  COST") 

4545  PRINT  LEFT*  (SP*»11  - LEN  (F*))  4 F*}*  (*'000)’? 

43*  PRINT  SPO  33)T'»TA  SET  ID  NO.  •}fiN* 

45*  PRINT 

4*B  PRINT  • SYSTEM  NTBf  •) 

49«  PRINT  LEFT*  (SP**6  - LEN  (HI*))  4 HI*)*  HOURS' } 

45*  PRINT  SPC  56))*NUMBER  OF  LRA'S  IN  THIS" 

45*  PRINT*  SYSTEM  MTTR  *) 
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4585  PRINT  LEFT*  (SP$.6  - LES  (NT$>)  t NHi“  HSy^SN 
4»  PRINT  spa  56)»w:guRi;tic<*:  nz3» 

4593  PRINT 

415  PRINT  * COfireCE  AGAINST  STCCXOliT  "{ 

4«  PRDir  LEFT*  (SP$.6  - LEN  (,49l))  + PRCSABUTYS 
441*  IF  fflPT  < > 5 THEN  4o3d 

4411  PRINT  SPO  33)}'SENSITIVITY  ANALYSIS  VARIABLE  !«.:  %f? 

443  PRINT  SPO  8l>fa*RENT  VALUE  FOR  THIS  VAR:ABL£='iSY<F9):  CCTC  4o4« 

441  PRINT  t PRINT 

4441  PRINT  “ ERA'S  SUPfCRTEC  UITH  CONTRACTOR  I£PCT  S 
44«  PRINT  SPO  1>;  LEFr$  (Sf».4  - LLN  (!C» >)  I H2«J"  I" 

44S  PRINT  • ERA'S  SUPPORTED  NITH  .IIEITARY  IfFCT'i 

441  PRINT  SPC  5)*  EEFTI  (SPI.5  - EEN  (K3I ) ) F H5J;' T 

441  PRINT  * ERA'S  SUPPORTED  T>«U  LOCAL  REPAIR' i 

443  PRINT  SPO  7)i  LEFTI  (SP$.5  - LEN  (H4«>)  F H4«5*  r 

4781  PRINT  ■ ERA'S  CODED  DISCARD  AT  FAILURE"  J 

47B  PRINT  SPC(  8)i  LEFTI  (SPI.?  - LEN  (H5I)>  F H5li'  l“i 

471  PRINT  5 PRINT  t PRINT 

4725  PRINT  "ntOOt  COST  ELEN&TS  (I'OOD) 

471  PRINT  SPC  42)}*m*ttt  FLEET  ra«0Nf€L  .RESUIR&FENT  niUiV 
475  PRINT  SPCt  Ik^T'fWINT.  CPER.* 

4811  PRINT  • PRGDUCnON  AND  SPARES"  J 
4815  PRINT  LEFTI  (SP|»17  - LEN  (LID)  F Eli; 

481  PRINT  SPO  42  INDIRECT  HANNING  REailRED-J 
483  PRINT  SPC  4)»  LEFTI  (S?1»7  - LEN  (!«H))  F HhD 
481  PRINT  LEFTI  (SPl.3  - LEN  (HCD)  F HW 
483  PRINT  ■ HAFfCWER  (COHPrTRNGiOTHER)"; 

4841  PRINT  SPC  DJ  LEFTI  (SPl.ll  - LEN  (L2I)>  F LCi; 

4845  PRINT  SPC(  42);'ADIiITICNS  TO  CREN"; 

4851  PRINT  SPC  10)1  LEFTI  (SPI*7  - LEN  (H6I))  F H6i; 

4855  PRINT  LERKSPl.S  - LEN  (H7I)>  F KTI 
4810  PRINT  " SIPPCRT  AND  TEST  ECUIF-HENT"; 

4845  PRINT  SPC  2)»  LEFTI  (SPl-lO  - LEN  (LSD)  F LSI* 

4®l  PRINT  SPC  42);'A-SCHCGL  ATTENICES") 

483  PRINT  SPC  ?)♦  LEFTI  (SPl.7  - LEH  CsD)  F Zoi; 

48i  PRINT  LEFTI  (3PI»8-  LEN  (L'D)  F 27$ 

488  PRINT  • REPAIR  (DIRECT  COST)*; 

4891  PRINT  SPC  9)1  LEFTI  (SP|.9  - LEN  (LiD)  F L4i; 

4895  PRINT  SPC  42);*C-SCH0£)L  ATTENDEES"; 

498  PRINT  SPC  9)9  LEFTI  (SPI»7  - LEN  (ZSD)  F ZSI) 

498  PRINT  L£Fn(SPI»8-  LEN  (291))  F 291 
4910  PRINT  • ICO.WTAflEMC-TRANSPCRT  ■; 

4915  PRINT  SPC  4);  LEFTI  (SPl»lO  - LEN  (LSI))  F LSI) 

4930  PRINT  SPC  42)J*C-SCHCCL  C0ST/STUDEN7(I)"; 

4933  TU  * STRt  ( IMT  ( VAL  (Til)  * ID)  / ICJ ) 

4931  T2«  » STW  ( IMT  ( VAL  (T2I)  » IW)  / lOD ) 

498  PRINT  LEFTI  (SPI»10  - LEN  (TlD)  F TID  LEFTI  (S?li3  - LEN  (T2$))  F T2I 
491  PRINT  ; PRINT 

495  PRINT  SPC  8)9  "NOTE:  ALL  COSTS  ARE  DISCC^NTED  TO  PRESENT  VAcUE  AT  AN  ANNOAl" 

4934  PRINT  SPC  14)9"DISCa«T  RATE  OF  ";H8I;"5:  IN  CONCERT  NITH  GMB  CIRCULAR  A-To." 

491  RETOM 
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W77  REM 

4178  REN  O E»  PRNTSUH  U 
4979  RD1 
4»  REN 
491  REM 
49C  REN 
509  REM  ROIMIHP  SUNGUTINE 

SOS  IF  u < 0 net  RU  > o:  retijrm 

509  IFRU.  IMT(RU)nOi  RETURN 
509  RU  3 INT  (RU)  t 1 
516  RETOM 

StIO  REN  SYSa  SUHRGUTINE 


5112  KA  » 1:20  » 0:21  » 0:22  = 0:23  = 0:24  = 0:25  = v':28  = o;z7  = j.-zs 
INITIdLIZE  ACCUMUmnCN  REGISTERS 

5i«  YA  »»;yp  a o:yd  » oni  = o;y4  = o:ys  = o:Ye  = fir  = o;ys  = o:!9 
INITMJ2E  ACCUHUUTICN  REGISTERS 
5104  LS  » 4 
SlfLR  *4 
5i7  C78*  I 
5U0  FOR  J2  s 1 TO  L 
5U5  LR  =IR  4 (1  + RO  / 100)  t ( - J2) 

513  NEXTJ2 

51S  P 3 (345  - H t 0)  / H 

519  RU  »(IIRT  - PI  / (D  4 P) 

5135  inSUISOSO 
5140  X 3 RU  4 1 
51«UI  *4 

51(7  CZ  a 4:ui  a o:U2  a 0 
519  RETtKN 

530  REN  PCD  SUBRCUTIIC 

5210  LB  a Q > A(l)  t 0(4)  I «R  / A(5):  REN  Av  LRh  FAIL'YR/SHIP 
5221  LP  3 J » P«  / A*:  REN  PEAK  LRA  FAIUDEFlflT.  PER./SHIP 
521KIS  a(KS  / KA)  t (AiO)  / (UC  - UD) 

526  GL  3K1)  t 0(4)  t A(2)  / A(5) 

523  RETUM 

5495  mtmtmmtmttmmt 
549  REM  tmotttrsPARESioommo 
5417  REN  tmitttmttmtmmo 

590  TTL  a 10  t 10:  REN  LARGE  INIT  TOTAL 
5502 LX  3ipt  X 

594  MEW  a NO  t LP  t ORT  / (D  « DEP) 

5514  LIN  a lP:KN  » KIS 

553  COS9  6100:REM  StLPiKIS) 

553  S 3 sniT 

590  LIN  a LP:SN  a S 

591  GOSUI  6004,*  REM  K(LPiS) 

559  IF  X 3 1 ncN  s(i)  a s:s<i)  a o:k(I)  = kcut:  repjrn 

SSSIOOJa  kout 

559  LINaLXlSNa  s 

559  COSAAOOO 

590  XHOLB  3 MXT 


viz?  = vl  Rth 

I Iv  * i/*  Atrt 


5570  KN  = O:  REH  THIS  TO  AVCIO  RCuHS  OFF  ERROR  liHEH  HHCLlt^XHCasl 

5572  IF  (DH  < > XH  WO  XH  < KIS)  TiEi  KN  = (KIS  - XHOUi)  / (HKCOi  - xHCOli) 

5573  REM  KH  IS  REaJIREIi  CONFIItHCE  LEVEL  AT  DEFCT 
5SBI  LIM  = hew:  REH  leVrfOiS  AT  IiEFH: 

5591  GOSta  6105:  REM  S(LI(».KN) 

56W  REM  SOIH'  IS  IF  SPARES  AT  DEFCT  iKS  S SHIP  SPARES 

56U  TEMP  = NO  * S t rCP  * SffJT 

5629  IF  NO  > sour  * DEP  THEN  TTL  = TLMPtB  = SGUTIKD  = DHGlIUKX  = XHCOIIS:  I ) 


5a  IF  1EMF'  TTL  THEN  TTL  = TEMP.'S  = S + KS  = SCOTIKC  = HHClDIKX  = XHflJi:  GOTO  5540 
565S<I)  = S - 1 

sm  SN  =b:b(I)=  b 

5<S»  GOSUO  6009 

5M0  REM  KOUT  IS  ACHia’EL-  DEF'CT  CONflieCE  LEVEL 
5<«  K<I)  = KOUT»  (KD-KX)  + KX 
5<ill  RETUW 

509  REM  nXEIO  DSPARES  CSESm 

5719  REM  mPOISSON  KafS)m 

5719  KOUT  = EXP  ( - LIN)*.  IF  SN  = 0 THEN  RETURN 

5715  IF  SN  > 3099  THEN  6019 

5729  LFAC  =9:LL  = LOG  (LIN) 

5739  FOR  11  = 1 TO  SNILF  = LF  P LOG  ( II >:KC  = KO  P EXP  (II  * LL  - LF  - LI ):  NEXT 

57#  RETWM 

579  REM  m«EIS)  K-POIS»*«« 

5899  REM  tttPOISSON  S(K>L)m 

5829  KP=KN-  EXP  ( - LIN ):LL  = LOG  (LIN) 

581  IF  HP  < = 9 THEN  SOOT  = O:  RETURN 
5849  LF  = 9:il  = 3990 

509  FOR  SO  = 1 TO  IlILF  = LF  P LOG  (SOXKP  = KP  - EXP  (SO  i LL  - - LI ):  IF  KP  < 

9 Tm  RETIRN 
5BS5  NEXT 
581  GOTO  6119 
6999  REHmtSUa  K(SrL)t:m 
6091  IF  SN  = 1 OCN  5790 
6095  IF  SN  = 9 THEN  KOUT  = EXP  ( - LINX  iSTUSN 
6019  H4  =(LIN  - SN)  / S®  (LIN) 

6015A  = G6»  EXP(H4IH4/  -2) 

601  G = I / (1  PC9  » ABS  (H4)> 

6025  KOUT  = A * (Cl  * G P G2  * G t 2 P G3  » G t 3 P G4  t G t 4 P G5  * G f 5) 

6030  IF  Hi  < 9 THD(  KOUT  = 1 - KOUT 
60S  RETUN 

60#  REM  mnmtmmumui 

6045  REM  m<«l£ND  K(S«L)mm 
6199  REMtmSie  S<LiK)»«t« 

6191  IF  SN  = 1 THEN  5809 

6195  IF  KN  < = EXP  ( - LIN)  T)€N  SOUT  = 91  RETURN 
6119  NM  » 1 - KN:A  = 1 

6115  IF  (MM  > .5  ANl!  NM  < 1)  T)€N  NM  = 1 - NM:A  = - 1 
6110  = SOR  < LOS  (NM  t - 2)) 

612  H4  s A * (C  - (C9  P Cl  » C P (X!  * G t 2)  / (1  P C3  I G P C4  t C t 2 P C5  t G t 3)) 
611  RU  - LIN  P H4  l;  SIK  (LIN) 


-37- 


6135  GOSl0  5O5<y 
61W  sour  = RU 
61«  RET®N 

6»  REM  LSPAfiES  SiJmTlNE 
62S5  KN  = KIS.’LW  = L?  * SRT  / Ii 
62i»  GCSUS  610d 
6315  S(  I)  = SOUTIKI)  = 0 
6270  SN  = SOIT 

635  G0SU3  6C^00 
630  K(  I)  = KOGT 

636  RETURN 

63J0  REM  LEVEL  Of  REPAIR  SGSRClTInE 

6335  Sf(I)=  LB  t (1  - (RU)  t R(2))  t (1  - CN>) 

63<0  Q1  = (NO  * (Q  * Ad)  + S!I)  + SPd))  I DEF  » B(I ))  / LCT 

6345  F(  I ) = A(0  ) * Q1  t ( LOG  (RR)  / LOG  (2)) 

6375  C<  1 ) = 0IC(2)  = 0IC(3)  = 01  REM  INITIALIZE  UmGci  TRNi  OTHER  iiAiifCli»£R  COSTS 

6377  Ml  = a » SM  / N t FW  I H / AHR:  REM  PEAR  SCHEDGLEIt  MAINTENANCE  REGGIREMENT 

63#  MP(I)=  (Ml  I 7 / D * LP  * (A(2)  i Rd)  t A(3)})  / (G  4 Gl) 

6385  MA(  I)  = MPd)  * AHR  / (PHR  * H):  REM  Av.  MAIN.  MWGGES  REG. 

638»  REM  ttlNPGTS  TO  (ttNPGGER  SGBRCGTINEtt 

63#  MIMP  s MP(I):M2MA  = MA(I):M3TC  = K t (TS  / N + Rd)  * TR):M4TA  = TB:M5£!.N  = BlNiMsAN 
= Gl  / (GS  - CZ)  * ( AIN  - G1N):M7AG  = AG  - UZG 
6305  GOSUB  6500:  REM  COMPUTE  MAIN.  MANfGI£R  COSTS 
64#  UN<  I)  = UNtUR  I ) = GG.‘  REM  OGTILIIEIi  FROM  AN  AND  AG  POOuS 
6405  MD(  I)  = R(3)  » LB  I NO  t A(3)  / DP  / 52  / G / a2 
64#  C(1)  = C(1)  + R(3)*  MKI)  t BD  » LR  t DP 

6407  C(2)  = C(2)  4 R<3)  » DP  I INT  (MIK I ) 4 1 ) * DC  4 TR  * ( 1 4 T3  * LR) 

6411  REM  FOR  MUD  POSTURE  ADD  UAGt  AND  TRAINING  COSTS  FOR  DEPOT  TECHNICIAiNS 
6415  CE(I.4)  = F(I)  * (NO  * (9  4 Ad)  4 Sd)  4 SF'(I)  4 LR)  t B(I)  » I£f'):  REM  PRCDiiCTI 
ON  AND  SPARES 
643  CE(I»5)  = 0 

6425  CE(I»6)  = di)  » (NO  * Rd)  4 DP  4 R(3):  . d 4 SV  4 LR) 

6430  CE(I»7)  = LB  » NO  t LR  *((R(1  ) 4 R( «j ) ) 4 RF  4 R(2)  4 d * R\w))  4 luD j . Rt 

PAIR 

6fl5  CE(If8)  = lEC  4 LR  » IMC  * (NO  4 R(3)  4 DP  4 Ff  / N 4 (Rd)  4 (»C  4 R(S)  * DF )):  REM 
ITEM  ENTRY  AND  MANANGEMENT 

64#  CE(I»9)  = (TDP  4 T7M  * LR)  * (PF  / N T PR  4 (Rd)  4 R'd))):  REM  TECH  I»;TA 
6445  CE( MO)  = LB  t NO  * LR  I 2 t DIS  4 CC  4 UF  4 R( 3):  REM  TRAi^SPCRTATION 
64#  LCCd)  = ai)  4 C(2)  4 C(3) 

6452  FORK  = 4 TO  lOILCCd)  = LCCd)  4 CEdfK).*  NEXT 
64»0$(1)=  ST»(  INT  (LCCd  )/  100)  / 10) 

645J0$<2)=  ST»(  INT  ((Cd)  4 C(2)  4 a3))  / 100)  / 10) 

645i0$<3)*  ST»<  INT  (CEd.4)  / 100)  / 10) 

64#  0$(4)=  STW  ( INT  (<CE(I.5)  4 C£(Ir6)  4 C£(I»7>  4 CEvI.S)  4 CEud)  t Ct(I.lv'))  / 
100 ) / 10 ) 

64*2  0$<5)=  STW  ( INT  ((HAd)  t NO  4 MWI)  4 If)  I 100  ) / 100  ) 

64#0«(6)=  STW  (HI  I NO) 

64640$<7)=  STW  (Ml  I NO  4 R(3)  4 INT  (fOd ' 4 1 ) * If ) 

64*8  PRINT  CHW(9)1’N" 

6480  PRINT  N7|{ 

6#0  PRINT  SPO  2)»  LEFT*  (SPlii:  - LEN  (G0>  1 >)>  4 CM  )» 
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6491  PRINT  SPC(  2)1  LEFT!  (SP».12  - LEN  (QtC)))  f 0»<2)1 

6492  PRINT  SPC(  2)»  LEFT*  (3Pt.l2  - LEN  (0*^3)))  t 0»;3)i 

6493  PRINT  SPC(  2)1  LEFT*  (SP*.12  • LENiO*u)))  + Q*a)i 

649*  PRINT  SPCi  12)1  LEFT*  (SPt.7  - LENiO*(5)))  F 0*(5)i 

6495  PRINT  LER*  (Sf1.9  - LEN  (0*<6)))  4 0*<6)i 

649*  PRINT  LER*  (3P*.l0  - LEN  (C*!7)))  F 0*i7)l 
649T  PRINT  CHW(9)l'r 

6498  RETURN 

6499  REN 

651  REN  m NWPCUER  COST  SUPR'CUTINE  m 

65*2  REN  6505-6515  DETERNINES  UTILIZED  FCSTION  OF  THE  AN  FCCL 

65*5  UN  = INT  (N6AN) 

651*  IF  NIHP  < = M6AN  THEN  UN  = NINP 

6515  IF  (NINP  > N6AN)  AND  ( INT  (MINP)  NINP ) AND  ( NINP  - INT  (Nlrtf  > < (teA.'.  - 
ANDTNEN  UN  = N6AN 

6517  REN  6520-6525  DETERNINES  UTiLIZEIi  PORTION  OF  THE  AG  POOL 

65a  UG  = NINP  - UN 

6525  IF  IffAG  < IS  THEN  UG  = N7AG 

65»  US  = NINP  - UN  - UG:  REM  UTILIZED  PORTION  OF  A3  FOOL 

6535  RU  > IE!  COSUB  505* 

654*  HI  s RU 

6545  RU  s us:  GOSUB  5050 

655*  H2  = RU:  REM  H2  IS  ♦ OF  NE«  ADDITIONS  TO  EACH  SHIP 

6555  HI  = HI  + H2:  REN  HI  IS  * TO  RECEIVE  A-SCHCOL  TRAINING 

658  RU  »NlMPt  GOSUB  5050 
6562  N1  = RU!  REN  C-SCHOOL  PER  SHIP 

6565  C(  1)  s C(l)  F NO  I LR  » iN2MA  4 BG  F HI  * (M5&N  - EG))!  RDI  WAGE 
6571  H3  = MO  * (1  F T2  * LR) 

6575  C(2)  = C(2)  F H3  * (HI  * N3TC  F HI  * N4TA):  REM  TRAINING 

65i  C(  3)  * C(  3)  F H3  » (Ml  * 2 F H2  * ZS):  REM  OT.HER  PERSONNEL  COSTS 

6SB5  RETlflN 

667*  N7*  » ■ CONTRACTOR  DEPOT*  tR(  D = 0;R(2)  = URIS)  = O'.  RETURN 

6672  N7i  s * MILITARY  DEPOT  ":R(1)  = 0:R(2)  = 1:R(3)  = 1!  RETURN 

667*  N7i  s * LOCAL  REPAIR  'KW  1 ) = 1:R(2)  = 0:Rv3'  = *!  RETURN 

6676  H7i  * • DISCAR'D  AT  FAIL  'IW  1 ) = 0:R(2)  = 0:R(3)  = O!  RETURN 

6671  REN 
6m  REN 

<f>6B  REM  LEAST  COST  SUBROUTINE 
66B  TT  = 10  t 1* 

669*  FOR  J = 0 TO  3 

67»*  IF  LCC(J)  < TT  THEN  TT  = LCC(J):I  = J 
671*  NEXT 
673*  J a I F 1 

674*  ON  J GOSUB  6670*6672.6674r6676 
6751  PRWT 

675*  PRWT  CHR*(9)i'M“ 

6755  PRINT  " tmt  SUPPORT  POSTURE  ASSIGNED!  -1N7*1*  mu“ 

6757  PRINT  CHR*(  9)1*1" 

676*  REN  AGGREGATE  COSTS  ANTi  OTHER  FACTORS 
6765  yp  » TP  F NP(I) 

677*  YA  = TA  F Itt  I ) 
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(OT  YD  * YD  + IC(  I ) 

6775  Y3  = Y3  + F(I)  » A<1):  REM  PRCODCTICM  COST 

67»  Y4  = Y4  + C£n»4):  REM  PRCD  W*D  SPARES 

67B  Y6  =r6  + CE(I.6) 

67W  Y7  =T7  4-  C£(I»7) 

67»5  Y8  =Y8  + CE(I»3) 

6#0  Y9  =Y9  + C£(I»9) 

6K  YlOs  YIO  iCEdflO) 

6810  Z1  = Z1  + R(3):  REM  0 LRA  TYPES  COOED  MOO 

6815  Z2  = Z2  + R(l):  REM  0 LOCAL  REPAIR  LRA  TYPES 

60  Z3  = Z3  + Atl)  / A(5):  REM  LRA  FAILURE  RATE 

6835  Z4  = Z4  + A(2)  # Ad ) / A(5):  REM  A5CREGATE  SYSTEM  MTTR 

68»  ZS  = Z5  + Ad):  REM  REM  TOTAL  MUMBER  OF  LRA'A 

68B  Z6  = Z4  + R(2)  * d - R(3))  * Ad):  REM  TOTAL  0 LRA'S  COItIt  COO 

6840  Z7  = Z7  + R(3)  I Ad):  REM  TOTAL  MUMBER  OF  LRA' A COOED  MOO 

6845  Z8  = Z8  + Rd ) * A<1 ):  REM  TOTAL*  OF  ERA'S  COOED  LOCAL  REPAIR 

6851  Z9  = Z9  + d - Rd)  - R(2))  * Ad):  REM  TOTAL  MUJCER  OF  LR'A'A  COICD  DISCARD 
6810  KA  sKA  * «I):  REM  CtSflDEMCE  LEVEL  ALLOCATION  FACTOR' 

6ffll  UI  =UI  + A(0):  REM  COffKCNCE  LEVEL  COST  ALLOCATION  FACTOR 
6ai  UIN  = UIN  t UW I ):  REM  RUNNING  SUM  OF  UTILIZD  PART  Of  AN  POOL 

6841  U2G  - U2G  + UG<  I ):  REM  RISING  S'JM  OF  UTILIZED  PART  OF  AG  POOL 

6911  GZ  =CZ  + QL:  REM  RUNNING  SUM  OF  MANPCilER  POOL  ALLOCATION  FACTOR 
6911  REim 

6925  HOC 
6n&  REN 
691  REM 

6n8  REM  4t  1 1 SYSTEM  COST  SUBROUTINE  t t « 

69S  REM 
6m  REM 

691  C(  i)  = o:cr2)  = o:c(3)  = o:  rem  initalize  manpower  costs 

6941  REM  DltlNPUTS  TO  MAINTENANCE  MANPOWER  SJctRCUTINEtt 

6945  HlMP  = YP:  REM  PEAK  MAIN.  flANPCWER  REGUIREMENT 

69V  M2MA  » YA:  REM  AV.  MAINTENANCE  MANPOWER  REGUIREMENT 

694!  M3TC  - DC  * (TS  4 Z2  » TR):TMC  = M3TC:  REM  C-XHOCL  TRAINING  COST 

6951  M4TA  = TBl  REM  A-SCHOOL  COST  FOR  MAINTENANCE  TECHNICIANS 

69B  H5BN  = BIN!  REM  AIMJAL  BILLET  COST  FOR  MAIN. 

6955  M6AN  = AlNl  REM  AVAILABLE  AN  POOL 

6957  M7A6  - AG:  REM  AVAILABLE  AG  POOL 

6940  COSUB  4500:  REM  COMPUTE  MAINTEJWNCE  MANPOWER  CCSIS 

6971  H6  = IC:  REN  # NEW  ADDITIONS 

6972  D4<0)  = Hi:  REM  0 A-SCHOOL  PER  SHIP 
6971  D5( 0)  = Mil  REM  ♦ C-SCHOOL  PER  SHIP 
697!  REM  COWTE  OPERATOR  MANPOWER  COSTS 

69»  MIMP  *TH*Q*PHR*7/D/UHR:REM  PEAK  Cff’ERATCR  REGUIREMENT 
698  M2MA  » MIMP  » AHR  / PHR  / H:  REM  AV.  OPERATOR  REGUIREMENT 
69B4  M3TC  * DC  I OTCITCO  = M3TC:  REM  OPERATOR’  TRAINING  COST 
69i  H4TA  s TA:  REM  OPERATOR  A-SCHOCL  COST 


i 1 


f: 


!• 


698  M5BN  x B2N;  REM  OPERATOR  ANNUAL  BILLET  COST 

698  M6AN  x A2N:  REM  AVAILABLE  OPERATORS 

698  M7AC  X AC  - UC:  REM  AVAILABLE  GENERAL  LESS  ALREADY  USED 

6994  COSUB  45001  REM  OPERATOR  MANPOWER  COSTS 


I 


-40- 


7000  H7  » H2:  REH  NEW  ADDITICSS  TC  SHIP 
7005  D4<1)=  m;  REtt  fl-SCHCa 
70!0  P5(l)  s Ni:  REM  C-SCHCCL 

7015  C(l)  s C(  1)  t YD  I DP  I BD  » LR:  REM  «.;GE  COST  FOR  DEPOT  TECHNICIANS 

7031  RU  = yd:  G£3SUB  5050.*  REM  0 TECH.  AT  EACH  [£POT  TC  RECEIVE  TRAlNlNO 

703  C(  2) » C<  2)  f RU  t DP  * EC  * Z1  t TR  I ( 1 + T3  * LR):  REM  IiEPOT  TRAInInO  COST 

7031  C(1 ) * C(  1 ) f MO  » OP  * BO  * LR:  REM  OFFICES  WAGE  COST 

70B  F(  5 ) » NO  I ( SAC  / LOT ) t ( LOG  ( RR  > / LOG  i 2 ) >:  REM  SYSTEM  ASSEMBLY  COST 

70#  C(  4 ) s F(  5 ) U4 : REM  PRODUCTS  AND  SPARES 

70«  C<  5)  * NO  » Q * ICO:  REM  INSTALLATION  AND  CHECKCOT  COST 

7051  C(4)=  Y6  HNC  t FIH  + CS  + CH  t (NO  t SGN  (ZO)  + DP  I SGN  ( Z1 )))  » ( 1 F S»' 4 lR) 

: REM  S&TE 


7051  C(7)=  Y7:08)  = Y8 

7053  C(9)  = PS  +Y9:  REM  TECH. DATA 

70B  C(10)=  YIO 


785  FORK 
70#  L$  = 
708  Hll * 
7071  H2$  = 
703  H3i  = 
70i  H4$  = 
7085  H5$  = 
7090  H80  = 
71#  230  = 
7110  H99  = 
7ia  mi  = 
711  mi  = 
71#  H6$  : 
711  H7$  » 
71#  Z40  = 
7170  I7i  = 
7181  281  = 
7190  29$  = 
7200  Ll$  = 


= 1 TO  io:ls  = ls  + C(K):  next 


STRi  ( INT  (LS  / 10»>  / 10) 

STRO  < INT  (1  / Z3)):  REM  SYSTEM  MTBF 
STRO  ( INT  ((Zo  / Z5)  * lOOO)  / 10):  REM 

STRO  ( INT  «27  / Z5)  * 1000)  / 10):  REM 

GIRO  ( INT  ((23  / Z5>  * 1000)  / 10)1  REM 

STRO  ( INT  ((29  / Z5)  t 1000)  / 10)1  REM 

STRO(  INT  (RO  * 10)  / 10) 

STRO  (25):  REM  TOTAL  ♦ OF  LRA'S 
STRO  ( INT  (KA  » 1£  F 4)  / IE  F 4):  REM 


X IRA'S  CODED  CCD 
X LRA'S  CCIiEl!  MOD 
2 LRA'S  CODED  LOCAl  REPAIR 
X LRA'S  CODED  DISCARD 


SYSTEM  CCNf,  LEEL 


STRO  ( INT  (O'A  * WO  F Ytf  * [fP)  * 10)  / 10):  REM  Av'G.  MANNING  PER  SHIP 
STRO  ( INT  (M2MA  » NO  * 10)  / 10):  REM  AvG.  OPERATaR  DEMAND  PER  SHIP 
STRO  (H4  ♦ NO):  REM  ADD.  TO  CREW  ( MAINTENANCE ) 

STRO  (H7  * NO):  REM  ADD.  TO  CREU  (G'^ERATION) 

STRO  ( D4<  0 ) » NO ):  REM  ♦ A-SCHOGL  ( MAINTENANCE ) 

STRO  ( D4(  1 ) » NO  >:  REM  4 A-SCHOCl  ( CPER'A  ICR ) 

STRO  (D5(0)  » NO  F RU  » DP>:  RGl  ♦ C-SCHCCL  (MAINTENANCE  (SHIP  AND  DErCD) 
STRO  ( D5(  1 ) « NO ):  REM  4 A-SCHGCL  ( OPERA  TGR ) 

STRO(  INT(C(4)/  100)  / 10) 


72WL20  = STRO  ( INT  ((C(l)  F C(2)  F C(3))  / 100)  / 10) 
7214  L30  = STRO  ( INT  (04)  / 100)  / 10) 

72»  L40  = STRO  ( INT  (C(7)  / 100)  / 10) 


723  L50  » STRO  ( INT  ((C(5)  F C(9)  F C(?)  f C(IO))  / lOo)  / 10)1  REM  ICC. 

AND  TMNSPORTATION 


I EMC*  DAlAi 


7234  FO  = STRO  ((  INT  (F(5)  / NO  F Y3)  / 100)  / 10) 

72#  MTO  * STRO  ( INT  (Z4  / Z3  * 1000)  / 1000  ) 

7254  TIO  » STRO(  INT(TMC)) 

72#T20  = STRO  ( INT  (TCO)) 

7270  RETWl 

9917  RE7I 

9918  REM 
99#  REN 

14100  REM  OtIFILL  SYSTEM  ARRAY  SOBRCOTINEtt* 

10410  SY<i) » oc:sY(2) » TB:sr(3)  = ta:sy(4)  = bin:sy(S)  = b2n:sv(6)  = bgish?)  = bihsi^s 
) » I0:SY(9)  = WllSYdO)  s WHR 


-Al- 


10020  SY(Il)  = W2,*SY(12)  = U:SV<13)  = T2:SV(14)  = TS.’SVdS)  = ZSJSnia)  ^ ri;3Vil.')  = D.’Sv 
(18)  = RO:SY(19)  sCNISYCO)  = * 

10030  SY(21)  = TIIP5SY(22)  = T7«:SV(23)  = CC:SY<24)  = I£C:SY(25)  = I((C:SVa6)  = 

» Aa:SY(28)  = («:SY(29>  = N0;SY(30)  = Q 

100(0  SY(3l)  * LtSY<32)  = Ai«:SY(33)  » PHR:SY(34>  = RR:3V(35>  = RFISviSo)  = litf;S)i37)  = 
DP:SY(38)  s C00)SY<39)  = IIRT:SY(40)  = SRT 

10050  SY(4l)  = MStSY(42)  = TH:SY(43>  = CF:SY(04)  = :!SV(45)  = o:d;sv(4o)  = Ts;s>>»r-'  = T 
R:SY(48)  = IC0:SY(49)  s L0T:SY(S0)  = sac 

lOOOO  SY(51)  * KS:SY(52)  = N:SY(53)  = WF':SY(54)  = PP:SY(55)  = FIH;SY(5j)  = cs;sv(r)  = CH 
:SY(5B)  * ps:sy(5?)  = pf:sy(60)  = pr 


10070  SY<41)  * S«;SY(79)  = GS:SY(80)  = uc 
lOOtO  RETUW 
10997  REH 


lowe  REH 


11999  ROI 

lliOO  REH  MtDIX  HJW  SUElROUTIiiEm 

lioto  DC  * SY<  DtTB  = S«2);TA  = SY(3):8iK  = SY(4):S2N  = SYk5)‘.SG  = 3Y(an&Ii  = 3Y\7);£C  = 
sy(8):«i  =sy(9):hhr  = sy(io) 

iiKO  U2  = SY(ii);u  = sy(12):t2  = sy(13>:t3  = SY(i4):2s  = sv(15):h  * 3r(i4);&  = svi'17);rc 
= SW18)tCHs  SY(19):tlR  = SY(20) 

lliJO  TDP  = SY(21):T.7M  = SY(22):CC  = SY(23):iEC  = SY(24):I(1C  = SY(25>:A1N  = SY\26);A2.>  = 
SY(27):aG  »SY<28)tNG  * SY<29):Q  = SY(30) 

11090  L »ST(31):AHR  = SY(32):PHR'  = SY(33):RR  s SY(34):rP  = SY(35>.‘[!£P  = SY(3d>:i!f  = SV(3 
7):COO  » SY(38):DRT  = SY(39);3RT  = SY(40) 

11050  DIS  » SY<41):TH  = SY(42);0F  = SY(43):Z  = SY(44):OTIi  = SY(45):TS  = SY(4o):TR  = SK47 

):ico«  sy(48>:lot  = sy(4?):sac  = sy(50) 

UNO  KS  *sy(51);m  = sy(52):up  s sy(S3):pp  = sy(S4):fih  = sy(55>;cs  = sr^&ticrf  = 3yv5:) 

:ps  »sy<58):pf  = sy(S9):pr  = sy(30) 

1 1070  SM  » SY(  01  ):cs  s SY'(  79  )tUC  = SY(  30 ) 

11000  RETUW 
1901  EW 

21100  IF  PEEK  (222)  = 2S5  THEN  END 

20010  IF  PEEK  (222)  = 5 OR  PEEK  (222)  = 6 Tt€N  HC-li  : PRIi(7  'DISK  NArtt*  ERROR.  PLEASE 
ReTRt.'t  RR  I * I TO  lOOO;  NEXT  \ aEAS  t GOTO  1 


